home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dark Star 7
/
Dark_Star_07_1996_-_de_Side_B.d64
/
vier gewinnt
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
83 lines
10 rom=198:poke53280,1:poke53281,1:rem for commodore 64
100 gg$=" "
120 dima(7),a%(7),b(7),b%(8,8),n$(2):sq=49:open1,0,0:m$="[147]"
125 print m$:input" deutsche anleitung j/n ";dt$
126 if dt$="j"then gosub900:goto810
130 printm$"do you need instructions y/n "
140 getu$:ifu$=""then140
150 ifu$<>"y"andu$<>"n"then140
160 ifu$="y"then700
170 forj=1to2:printm$"name spieler"j"(max.=6 buchst.) ? ";:input#1,n$(j)
180 iflen(n$(j))>6thenn$(j)=mid$(n$(j),1,6)
190 next
200 print"[147][144]":forz=1to15
210 print" [214][214] [214][214] [214][214] [214][214] [214][214] [214][214] [214][214] [214][214]"
220 next
230 forz=1to2:print" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":next
240 print" 1 2 3 4 5 6 7"
250 forf=1to7:reada(f):next
260 data1187,1267,1347,1427,1507,1587,1667
270 forf=1to7:readb(f):next
280 data1027,1032,1037,1042,1047,1052,1057
290 printgg$;n$(1)"= [146]="wh;" "n$(2)"=[166][166]="bl
300 getr$:ifr$=""then300
310 ifval(r$)=0orval(r$)>7then300
320 r=val(r$)
330 ifa%(r)=7then300
340 ifn=160thenn=102:poke1989,81:poke56261,0:poke2012,32:goto360
350 n=160:poke2012,81:poke56284,0:poke1989,32
360 gosub400 :a%(r)=a%(r)+1:goto430
370 sq=sq-1:pokerom,0
380 ifsq=0thenprint""spc(15)"no winner!!":forbb=1to1500:next:goto640
390 goto300
400 forw=b(r)toa(7-a%(r))+5*rstep40
410 forq=wtow+2:pokeq+40,n:pokeq-40,32:next:pokea,n/2:fort=1to5:next:pokea,0
420 next:return
430 b%(r,a%(r))=n
440 forh=a%(r)to1step-1:ifb%(r,h)<>nthen460
450 co=co+1:next
460 ifco>=4then570
470 forh=1to3:ifb%(r+h,a%(r))=nthennext
480 fori=1to3:ifb%((r-i),a%(r))=nthennext
490 ifi+h>4then570
500 forh=1to3:ifb%(r+h,a%(r)+h)=nthennext
510 fori=1to3:ifb%(r-i,a%(r)-i)=nthennext
520 ifi+h>4then570
530 forh=1to3:ifb%(r-h,a%(r)+h)=nthennext
540 fori=1to3:ifb%(r+i,a%(r)-i)=nthennext
550 ifi+h>4then570
560 co=0:goto370
570 forl=1to3:forq=0to255step5:pokea,q:next:pokea,0:next
580 forw=1074to1114step40
590 forq=wtow+2:pokeq,n:next:next
600 print""spc(14)"is the winner !!!"
610 forrr=1to3000:next
620 ifn=102thenbl=bl+1:goto640
630 wh=wh+1
640 restore:forxx=1to7:a%(xx)=0:next:sq=49:co=0
650 forxx=1to7:forxv=1to7:b%(xx,xv)=0:next:next
660 print"";:fortv=1to3:print" ";:next
670 print:forz=1to15
680 print"[144] [214][214] [214][214] [214][214] [214][214] [214][214] [214][214] [214][214] [214][214]"
690 next:pokerom,0:n=102:poke1989,81:poke2012,32:goto250
700 print"[147] ";
710 poke53272,23:foree=1to22:print"c[207][206][206][197][195][212] f[207][213][210][157][157][157][157][157][157][157][157][157][157][157]";:next
720 fort=1to2000:next:print"[147]"
730 print" t[200][197] [207][194][202][197][195][212] [207][198] [212][200][197] [199][193][205][197] [201][211] [212][207] [199][197][212] [198][207][213][210][207][198] [217][207][213][210] [208][201][197][195][197][211] [201][206] [193] [210][207][215]";
740 print". y[207][213] [195][193][206] [196][207] [212][200][201][211][200][207][210][201][218][207][206][212][193][204][204][217],[214][197][210][212][201][195][193][204][204][217],[207][210] [196][201][193][199][207][206][193][204][204][217]."
750 print" t[207] [205][207][214][197],[217][207][213] [193][206][196][160][217][207][213][210] [207][208][208][207][206][197][206][212] [212][193][203][197] [212][213][210][206][211][160][196][210][207][208][208][201][206][199] [217][207][213][210] [207][215][206] ";
760 print"[195][207][204][207][210][197][196] [208][201][197][195][197] [201][206][212][207] [207][206][197][160][207][198][160][212][200][197][160][211][197][214][197][206][160][206][213][205][194][197][210][197][196][160][195][207][204][213][205][206][211].y[207][213] [196][207][160][212][200][201][211]";
770 print" [194][217] [212][217][208][201][206][199][160][212][200][197][160][206][213][205][194][197][210][160][207][198][160][212][200][197][160][195][207][204][213][205][206][201][206] [215][200][201][195][200][160][217][207][213][160][215][201][211][200][160][212][207][160][196][210][207][208][160][193]";
780 print" [208][201][197][195][197].i [215][201][204][204][160][211][201][199][206][193][204][160][201][198][160][207][206][197] [207][198] [217][207][213] [215][201][206][211][160][193][206][196] [212][197][204][204][160][217][207][213][160][215][200][207][160][200][193][211][160][215][207][206]";
790 print". i [215][201][204][204] [208][210][201][206][212] [193] [194][193][204][204] [213][206][196][197][210] [217][207][213][210] [206][193][205][197][160][215][200][197][206][160][201][212]'[211] [217][207][213][210] [212][213][210][206].";
800 print"w[200][201][212][197] [199][207][197][211] [198][201][210][211][212].";
810 printspc(7)"press any key !"
820 getu$:ifu$<>""thenpoke53272,21:goto170
830 goto820
900 print"[147] connect four - fuer 2 mitspieler"
901 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
905 print"das ziel ist es 4 steine in einer reihe"
910 print"zu plazieren,entweder in horizontaler"
915 print"vertikaler oder diagonaler folge."
920 return